home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Tools & Apps / Graphics & Imaging / Ultra Dragging 1.0ß1 / MNothing.p next >
Encoding:
Text File  |  1991-04-02  |  1005 b   |  51 lines  |  [TEXT/MPS ]
  1. { UOffscreenManager.p}
  2. { Copyright © 1990, 1991 by Apple Computer, Inc. All rights reserved.}
  3.  
  4. {    Change List:
  5.  
  6.     GAP 060990    Modified USES when changing from Lightspeed Pascal to MPW.
  7.     GAP 020490    Changes to conform to new name for the application global
  8.                 and use of UIconDragging unit.
  9.  
  10.     End Change List. }
  11.  
  12. PROGRAM Nothing;
  13.  
  14. { This program demonstrates how to track on the desktop from one view to another. }
  15.  
  16. {$MC68020-}
  17. {$MC68881-}
  18.  
  19.     USES
  20.     
  21.     {    MacApp    }
  22.         UMacApp,
  23.  
  24.     {    Standard MacApp Building Blocks    }
  25.         UPrinting,
  26.         UGridView,
  27.         
  28.     {    Other Building Blocks    }
  29.         UReliefGridView,
  30.         UOSBitmap,
  31.         UOSImage,
  32.         UIconDragging,
  33.         UNothing;
  34.  
  35.  
  36. BEGIN {Nothing}
  37.     InitToolBox;
  38.     IF ValidateConfiguration(gConfiguration) THEN
  39.         BEGIN
  40.             InitUMacApp(8);
  41.             InitUPrinting;
  42.             InitUGridView;
  43.             InitUIconDragging;
  44.             New(gLooneyApplication);
  45.             FailNIL(gLooneyApplication);
  46.             gLooneyApplication.ILooneyApplication(kFileType);
  47.             gLooneyApplication.Run;
  48.         END
  49.     ELSE
  50.         StdAlert(phUnsupportedConfiguration);
  51. END. {Nothing}